home *** CD-ROM | disk | FTP | other *** search
/ CD School House 10 / CD School House - Education and Games (10.0) - Wayzata Technology (1995).iso / mac / DOS / MISC / KCART10 / INSTALL.FIL < prev    next >
Text File  |  1995-06-01  |  5KB  |  233 lines
  1. BACKGROUND 31
  2. SHADOW ON
  3. BEEP ON
  4.  
  5. CALL KS_TITLE
  6. PAUSE 50
  7. CALL PROG_TITLE
  8. PAUSE 50
  9. TELESCOPE OFF
  10.  
  11. SPACE 2500
  12. :GET_TARGET
  13. DRIVE C 10 19 113 31 5 12 95     'wx,wy,wc,ic,mx,my,mc
  14. PATH \KCART 10 19 113 31 5 12 95
  15. EXIST ~1~2\*.*
  16. JUMP.NO CHK1
  17.  
  18. WINOPEN 0 20 113
  19. "The directory ~1~2 already exists! Are"
  20. "you sure you want to use this directory?  Y/N"
  21. ASK +47 +2
  22. WINCLOSE
  23. JUMP.NO GET_TARGET
  24.  
  25. :CHK1
  26. EXIST ~0\kcart10.001
  27. JUMP.YES COPY_FILE1
  28. DISK 0 kcart10.001 10 20 47
  29.  
  30. :COPY_FILE1
  31. COPY ~0\kcart10.001 ~1~2 10 20 113
  32. JUMP.FAIL INST_FAIL
  33.  
  34. EXIST ~0\kcart10.002
  35. JUMP.YES COPY_FILE2
  36. DISK 0 kcart10.002 10 20 47
  37.  
  38. :COPY_FILE2
  39. COPY ~0\kcart10.002 ~1~2 10 20 113
  40. JUMP.FAIL INST_FAIL
  41.  
  42. EXIST ~0\kcart10.003
  43. JUMP.YES COPY_FILE3
  44. DISK 0 kcart10.003 10 20 47
  45.  
  46. :COPY_FILE3
  47. COPY ~0\kcart10.003 ~1~2 10 20 113
  48. JUMP.FAIL INST_FAIL
  49.  
  50. EXIST ~0\kcart10.004
  51. JUMP.YES COPY_FILE4
  52. DISK 0 kcart10.004 10 20 47
  53.  
  54. :COPY_FILE4
  55. COPY ~0\kcart10.004 ~1~2 10 20 113
  56. JUMP.FAIL INST_FAIL
  57.  
  58. EXIST ~1~2\kcart.exe
  59. JUMP.YES OVRWRITE
  60.  
  61. :COPYFILES
  62. SHELL
  63.   "~1"
  64.   "cd ~2"
  65.   "copy /b kcart10.001+kcart10.002+kcart10.003+kcart10.004 kcart10.exe >NUL"
  66.   "del kcart10.001"
  67.   "del kcart10.002"
  68.   "del kcart10.003"
  69.   "del kcart10.004"
  70.   "kcart10"
  71.   "del kcart10.exe"
  72.  
  73. WINOPEN 0 20 113
  74. "Would you like to view the instructions"
  75. "for Kinder-Carton?  Y/N"
  76. ASK +29 +2
  77. WINCLOSE
  78. JUMP.NO PRINT_DOC
  79. VIEW ~1~2\kcart.doc 27 112
  80.  
  81. :PRINT_DOC
  82. WINOPEN 0 20 113
  83. "Would you like to print the instructions"
  84. "for Kinder-Carton?  Y/N"
  85. ASK +29 +2
  86. WINCLOSE
  87. JUMP.NO INST_OK
  88.  
  89. :PRINT_NOW
  90. WINOPEN 0 20 116
  91. ""
  92. "  Printing...  "
  93. ""
  94. PRINT ~1~2\kcart.doc
  95. WINCLOSE
  96. JUMP.FAIL PRN_ERR
  97. JUMP INST_OK
  98.  
  99. :PRN_ERR
  100. WINOPEN 0 12 112
  101. "Your printer is not responding.  Possible problems:"
  102. ""
  103. "   ■ Printer is not attached to LPT1"
  104. "   ■ Printer is not turned on"
  105. "   ■ Printer is out of paper"
  106. ""
  107. "Do you want to try to print again?  Y/N"
  108. ASK +42 +7
  109. WINCLOSE
  110. JUMP.YES PRINT_NOW
  111.  
  112. :INST_OK
  113. TELESCOPE ON
  114. WINOPEN 5 9 113
  115. " Installation was successful. Use the following commands "
  116. " to run KCART:"
  117. "       ~1"
  118. "       CD ~2"
  119. "       KCART"
  120. ""
  121. " If you experience a conflict with your sound card, pass"
  122. " the address and interrupt number used by your sound"
  123. " card on the command line, as in:  KCART 220 5   See the"
  124. " KCART.DOC file for more details."
  125. ""
  126. " Would you like to run Kinder-Carton now?  Y/N "
  127. ASK +49 +20
  128. WINCLOSE
  129. JUMP.NO THE_END
  130. RUN kcart.exe
  131.  
  132. :THE_END
  133. WINCLOSE   'close title win1
  134. WINCLOSE   'close title win2
  135. END  'normal install
  136.  
  137. :KS_TITLE
  138. BORDER 0
  139. WINOPEN 2 2 53
  140. "          "
  141. "                              "
  142. "                              "
  143. "                              "
  144. "                              "
  145. "                              "
  146. "                              "
  147. "                              "
  148. "                              "
  149. "          "
  150. WINUPDATE +10 +3 58
  151. "K"
  152. WINUPDATE +11 +3 59
  153. "i"
  154. WINUPDATE +12 +3 60
  155. "d"
  156. WINUPDATE +13 +3 61
  157. "S"
  158. WINUPDATE +14 +3 62
  159. "t"
  160. WINUPDATE +15 +3 63
  161. "u"
  162. WINUPDATE +16 +3 49
  163. "f"
  164. WINUPDATE +17 +3 53
  165. "f"
  166. WINUPDATE +19 +3 58
  167. "S"
  168. WINUPDATE +20 +3 59
  169. "o"
  170. WINUPDATE +21 +3 60
  171. "f"
  172. WINUPDATE +22 +3 61
  173. "t"
  174. WINUPDATE +23 +3 62
  175. "w"
  176. WINUPDATE +24 +3 63
  177. "a"
  178. WINUPDATE +25 +3 49
  179. "r"
  180. WINUPDATE +26 +3 53
  181. "e"
  182. WINUPDATE +11 +5 48
  183. "6490 Dubois Rd."
  184. WINUPDATE +7 +6 48
  185. "Lewis Center, OH  43035"
  186. WINUPDATE +4 +7 48
  187. "614-548-5043  CIS 71043,3706"
  188. WINUPDATE +5 +9 59
  189. "Educational Software 4 Kids"
  190. BORDER 1
  191. RETURN
  192.  
  193. :PROG_TITLE
  194. WINOPEN 42 5 95
  195. "                                "
  196. ""
  197. ""
  198. "Register KCART for $20.00 and"
  199. "receive all the voice files for"
  200. "the letter names and sounds,"
  201. "blends and digraphs, and numbers"
  202. "from 0 to 100. The shareware"
  203. "screens are also removed in the"
  204. "registered version."
  205. WINUPDATE +6 +2 91
  206. "Kinder-Carton v1.0sw"
  207. RETURN
  208.  
  209. :OVRWRITE
  210. WINOPEN 5 18 47
  211. "A previous version of this program was "
  212. "detected. Please enter Y in response to"
  213. "any overwrite messages you may see on"
  214. "the next screen.          Press [Enter]"
  215. WAIT +41 +4
  216. WINCLOSE
  217. JUMP COPYFILES
  218.  
  219. :INST_FAIL
  220. WINOPEN 0 13 112
  221. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  222. "Possible reasons:"
  223. ""
  224. "  ■ The floppy disk was removed prior to completion."
  225. "  ■ The floppy disk was damaged during shipping."
  226. "  ■ Your disk drive is out of alignment."
  227. ""
  228. "Please contact KidStuff Software.      Press [Enter]"
  229. WAIT +54 +8
  230. DELETE ~1~2\*.* 0 0 31
  231. RD ~1~2
  232. WINCLOSE
  233.